unit fmUpdate;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, jpeg;
  const WM_UPDATE_MSG = WM_USER + 102;
type
  TfrmUpdate = class(TForm)
    Image1: TImage;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure OnMsg(var Msg:TMessage);message WM_UPDATE_MSG ;
  end;

var
  frmUpdate: TfrmUpdate;

implementation

uses uShare;

{$R *.dfm}

{ TfrmUpdate }

procedure TfrmUpdate.OnMsg(var Msg: TMessage);
begin
  Label1.Caption := string(msg.WParam);
end;

procedure TfrmUpdate.FormCreate(Sender: TObject);
begin
  if FileExists(AppPath+'\Image\bg.jpg') then
    Image1.Picture.LoadFromFile(AppPath+'\Image\bg.jpg');
end;

procedure TfrmUpdate.FormShow(Sender: TObject);
begin
  Label3.AutoSize := False;
  Label3.Width := 180;
end;

end.
